﻿Imports System.Xml
Namespace Base
    <HideModuleName()> _
    Public Module NameTableCreation
        Public Const body As Integer = 0
        Public Const title As Integer = 1
        Public Const itemdate As Integer = 2
        Public Const category As Integer = 3
        Public Const author As Integer = 4
        Public Const content As Integer = 5
        Public Const pubdate As Integer = 6
        Public Const rss As Integer = 7
        Public Const description As Integer = 8
        Public Const channel As Integer = 9
        Public Const item As Integer = 10
        Public Const link As Integer = 11
        Public Const image As Integer = 12
        Public Const subject As Integer = 13
        Public Const fm_namespace As Integer = 14
        Public Const guid As Integer = 15
        Public Function ReturnNameTable(ByVal nt As XmlNameTable) As Object()
            Dim elementNames As Object() = New Object(15) {}
            elementNames(body) = nt.Add("body")
            elementNames(title) = nt.Add("title")
            elementNames(itemdate) = nt.Add("date")
            elementNames(category) = nt.Add("category")
            elementNames(author) = nt.Add("author")
            elementNames(content) = nt.Add("content")
            elementNames(pubdate) = nt.Add("pubDate")
            elementNames(rss) = nt.Add("rss")
            elementNames(description) = nt.Add("description")
            elementNames(channel) = nt.Add("channel")
            elementNames(item) = nt.Add("item")
            elementNames(link) = nt.Add("link")
            elementNames(image) = nt.Add("image")
            elementNames(subject) = nt.Add("subject")
            elementNames(fm_namespace) = nt.Add("http://www.mctn.local/fmrssexs.xsd")
            elementNames(guid) = nt.Add("guid")
            Return elementNames
        End Function
    End Module
End Namespace